Option Explicit
Sub N_Sample031()
    Dim myAr As Variant
    Dim i    As Long
    myAr = Array("E", "e", "", "")    '}Cw
    For i = 0 To UBound(myAr)
        If StrConv(myAr(i), vbWide) = _
              StrConv(myAr(i), vbWide + vbUpperCase) Then
            MsgBox myAr(i) & "jgC"
        Else
            MsgBox myAr(i) & "pg"
        End If
    Next
End Sub
